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I.  Introduction 


This  report  documents  a  plotting  library  for  use  with 
Tektronix  terminals  and  emulators  connected  to  Digital  Equipment 
Company  VAX  computers  using  the  VMS  operating  system.  The 
library  contains  user  callable  routines  that  perform  graphical 
manipulation  on  the  screen,  draw  lines  and  markers,  and  contour 
data . 

This  work  was  conducted  under  contract  with  the  Cloud  Physics 
Branch,  Atmospheric  Sciences  Divison,  of  the  Air  Force  Geophysics 
Laboratories 

The  routines  in  the  library  have  been  designed  primarily  for 
the  Tektronix  4115B.  Many  of  them  will  work  on  other  terminals, 
but  some,  notably  the  routines  that  act  on  colors,  the  dialog 
area,  and  segments,  may  work  only  partially  or  not  at  all. 

The  library  contains  both  higher  and  lower  level  routines. 

The  higher  level  routines  that  are  commonly  called  by  user 
programs  do  things  like  contour  arrays,  draw  axes,  plot  strings 
of  text  and  change  colors  and  visibilities  of  objects.  Lower 
level  routines  control  output  and  data  encoding  and  are  usually 
only  called  by  the  higher  level  routines  in  the  library. 

The  most  likely  routines  to  be  called  by  a  high  level  user 
program  are: 

— T_BEG  and  T  END  which  must  be  called  to  initialize  and 
terminate  plotting, 

— T_MARK  and  TLINEM  which  plot  markers  and  lines, 

— T_BSEG ,  T_ESEG ,  T_PSEG,  T_TSEG,  T^VSEG,  T_KSEG  which  begin, 
end,  move,  transform,  set  visibility,  and  kill  graphical 
objects  called  segments, 

— T^DACHAR,  T_DAIND ,  T_DALIN,  and  T_DAPOS  which  set  the 
dialog  area  width,  color,  number  of  lines,  and  position, 

— T  LCHAR  and  T  SCHAR  which  change  the  dialog  area  character 
size, 

— T_STRNG  which  plots  a  string  of  text, 

— T_PANEL  which  draws  a  filled  panel, 

— T_PRINT  which  prints  the  screen, 

— T_CONTOUR  and  T_AXES  are  powerful  contouring  and  axes 
labelling  routines.  T_AXES  is  documented  at  the  end  of 
the  alphabetical  documentation 

There  are  many  other  routines  that  are  used  primarly  by  other 
members  of  the  library.  These  are  documented  here  so  that  new 
routines  that  are  written  and  added  to  the  library  can  use  them 
to  do  low  level  actions. 


»  -um  -VII  •"  m  .* 


•  v m  k  »  w*  vtc J%  W 


e 


^  .^J  vr-^*r-  ^  V“J  -, 


Page  5 


II , 


Definition  of  terms 


Although  familiarity  with  the  Tektronix  4115B  is  assumed,  some 
terms  are  defined  here  because  they  are  used  extensively 
thoughout  this  documentation.  If  extensive  use  is  made  of  the 
4115,  the  4110  Command  Reference  Manual,  the  4115B  Operators  and 
Host  Manuals  should  be  consulted.  The  Command  Reference  Manual 
contains  a  comprehensive  list  of  all  valid  commands  as  well  as 
lists  of  colors,  line  styles,  marker  types,  and  panel  fill 
patterns. 


<■. 

Dialog  area: 

1  ’ 

1 

Segments : 

o 

V 

v 

Marker : 

y 

y 

8 

Panel : 

1 

Alpha  mode: 

L 

cJ 

Vector  mode: 

This  is  a  plane  that  "floats"  over  the 
graphics  on  the  screen.  Data,  output,  and 
commands  can  be  written  to  this  plane  without 
interfering  with  the  graphics  below. 


A  segment  is  a  series  of  graphics  commands  or 
"primitives”  that  can  be  stored  and  manipulated 
as  a  whole. 


This  is  a  symbol  like  a  plus  sign,  a  diamond  or  a 
point.  A  list  is  contained  in  the  4110  Command 
Reference  Manual 


This  is  a  polygon  filled  with  a  pattern  or  color. 
Patterns  and  colors  are  detailed  in  the  4100  Command 
Reference  Manual 


In  this  mode,  output  is  directed  to  the  dialog 
area . 


In  this  mode,  output  is  directed  to  the 
graphics  area. 


\ 


V  J  > 


III.  Operating  procedures 

To  use  this  plotting  library,  a  program  must  be  1 
library,  which  now  resides  at  DRA3 :[ WURMAN . TEK ) 
All  routines  and  common  blocks  in  this  library  hav 
begin  with  the  letters  "T_" .  Thus,  in  order  to  el 
conflicts,  it  is  recommended  that  user  routines  and 
avoid  names  beginning  with  that  sequence.  Befo 
program,  the  logical  name  PLOTIO  must  be  defined, 
of  PLOTIO  determines  whether  plots  are  sent  to  a 
screen.  (But,  note  that  the  file  output  option 
functional  in  the  current  version  of  this  lib 
usually  done  with  one  of  the  following  commands: 


inked  with  the 
TEKLIB.OLB. 
e  names  that 
imiate  naming 
common  blocks 
re  running  the 
The  definition 
file  or  to  the 
is  not  fully 
rary .  )  This  is 


DEFINE  PLOTIO  TT  to  send  plots  to  the  screen 

or 

DEFINE  PLOTIO  PLOT . DAT  to  send  plots  to  a  file 

The  first  plotting  routine  called  must  be  T_BEG  and  the  last 
routine  called  must  be  T_END.  It  is  not  necessary  to  fully 
understand  what  they  do,  (they  are  discussed  in  the 
documentation)  but,  failure  to  call  these  routines  may  cause 
program  execution  to  halt. 

The  terminal  should  be  in  alpha  mode  before  any  output  is 
sent  to  the  dialog  area.  Most  commonly  called  library 
routines  leave  the  terminal  in  that  mode,  but  some  of  the  lower 
level  ones  such  as  T  VECT  and  T  OUT  do  not. 
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IV.  Sample  Plotting  Session 


The  following  is  an  example  of  a  program  and  a  run  session 
to  plot  a  box  on  the  screen. 


$  edt  box. for  ,-create  program 

*1 

this  program  will  make  a  box  and  store  it  in  a  segment 


integer*4  x(5)  /  100,  500, 
integerM  y(5)  /  100  ,  100, 

call  t_beg 

call  t_bseg(  1  ) 

call  t_lnsty(  0  ) 

call  t_lnind(  4  ) 

call  t_.linem(  5,  x,  y  ) 

call  teseg 

call  t_end 

end 


500,  100,  100  /  larrays  for 
500,  500,  100  /  !box  vertices 

[initialize  plotting 

[open  segment  1 

[line  type-0  (solid  lines) 

[line  index-4  (blue  by  default) 
[draw  lines  for  box 
[close  segment 
[terminate  plotting 


'Z 

*EXIT 

$  FORTRAN  BOX  ;compile  program 

$  LINK  BOX , DRA3 : [WURMAN . TEK ] TKL IB/LIB  ;link  to  plot  library 

$  DEFINE  PLOTIO  TT  ; send  output  to  screen 

$  RUN  BOX  ; run  program  to  make  plot 


* «  K ^  <r% i/^  v* w*  uw hw  »■>  V* 'jv V*_V» '.> 
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TYPE : 

NAME : 

PURPOSE: 

DESCRIPTION: 
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SUBROUTINE 

T_ALPHA 

To  set  a  Tektronix  terminal  to  alpha  mode 

This  subroutine  will  set  a  Tektronix  terminal  to 
alpha  mode.  The  terminal  mode  is  changed  immediately. 


CALLING  SEQUENCE:  CALL  T_ALPHA 


INPUT: 

OUTPUT : 

ACCESS : 

COMMON  BLOCKS: 
SIDE  EFFECTS: 

RESTRICTIONS : 
METHOD: 

LANGUAGE: 


none 


Calls  T_OUT  to  send  appropriate  sequence  to  terminal 
The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


none 


All  pending  plotting  output  being  stored  by  T_OUT 
will  be  sent  to  the  terminal. 

none 

An  ASCII  31  is  sent  to  the  terminal  with  a  call  to 
T  OUT.  The  output  is  forced  to  be  immediate  by  using 
a~negative  output  length  specifier. 

VAX-11  FORTRAN 


MODIFICATION  HISTORY: 


Created  1984  by  Joshua  Wurman 

Modified  7-Aug-1985  by  Joshua  Wurman 
sends  a  -1  length  to  T_OUT 
to  force  immediate  output 


E i-  J 

*  s* 

*  * 
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TYPE: 


SUBROUTINE 


NAME: 

PURPOSE: 

DESCRIPTION: 

CALLING  SEQUENCE 
INPUT: 

OUTPUT: 

ACCESS: 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS: 
METHOD: 

LANGUAGE : 


T_ALPHAD 

To  set  a  Tektronix  terminal  to  alpha  mode  without 
forcing  immediate  output 

This  subroutine  will  set  a  Tektronix  terminal  to 
alpha  mode. 

CALL  T_ALPHAD 

none 

Calls  T_OUT  to  send  appropriate  sequence  to  terminal 

The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

none 

none 

none 

An  ASCII  31  is  sent  to  the  terminal  with  a  call  to 
T_OUT . 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1985  by  Joshua  Wurman 
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TYPE: 

NAME: 

PURPOSE: 

DESCRIPTION: 


CALLING  SEQUENCE 
INPUT: 

OUTPUT: 

ACCESS: 

COMMON  BLOCKS: 

SIDE  EFFECTS: 

RESTRICTIONS : 

METHOD: 


SUBROUTINE 

T_BEG 

Initializes  plotting 

This  subroutine  assigns  an  I/O  channel  to  the  terminal 
or  opens  a  file  to  receive  plotting  output  and  places 
information  in  the  COMMON  BLOCK  /T_COMMON_CHAN/ 
concerning  the  I/O  channel  rumber  and  the~action  taken. 

If  the  first  two  characters  of  the  translation  of  the 
logical  name  PLOTIO  are  "TT"  then  an  I/O  channel  is 
opened  to  the  terminal  and  plots  are  sent  therj.  If 
they  equal  anything  else,  then  a  file  with  the  name 
of  the  translation  of  PLOTIO  is  opened  and  plots  are 
sent  there. 

In  addition,  information  about  the  action  taken  above 
is  placed  in  a  common  block.  This  common  block  is 
used  by  other  plotting  output  routines  and  is  described 
in  more  detail  below. 

CALL  T_BEG 

none 

A  message  indicating  the  action  taken  is  sent  to 
the  terminal. 

The  calling  program  must  be  linked  to  LIBT : tklib . olb 

/T_COMMON_CHAN/  contains  a  two  byte  integer  which 
contains  either  the  channel  number  assigned  to  the 
terminal  or  a  50  which  is  the  logical  unit  number 
associated  with  the  file  that  is  opened.  A  third 
byte  contains  either  a  .TRUE,  if  an  I/O  channel  was 
opened  to  the  terminal  or  a  .FALSE,  if  a  file  was 
opened . 

If  an  error  occurs  during  logical  name  translation, 
channel  assignment,  or  file  opening,  program  execution 
stops . 

Since  only  the  first  two  characters  of  the  translation 
of  PLOTIO  are  checked,  it  is  impossible  to  send 
plots  to  a  file  with  a  name  that  starts  with  "TT...". 

The  system  service  TRNLOG  is  called  to  translate 
"PLOTIO".  If  the  translation  starts  with  "TT"  then 
the  system  service  ASSIGN  is  called  to  assign  the 
first  available  I/O  channel.  If  the  translation  begins 
with  anything  else,  then  a  file  is  opened  with  a  LUN-SO, 
CARRIAGECONTROL=L 1ST  and  RECL-1600. 


LANGUAGE: 


VAX- 11  FORTRAN 
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MODIFICATION  HISTORY:  Created  7-nov-1984  by  Joshua  Wurman 

Modified  12-Nov-1984  by  Joshua  Wurman 

Send  message  to  terminal  telling 
of  action 

19-Nov-1984  by  Joshua  Wurman 

Opens  file  if  beginning  of  PLOTIO 
is  not  "TT"  places  .FALSE,  in  3rd 
byte  of  /CHAN/  if  file  and  .TRUE, 
if  terminal 

29-Nov-1984  by  Joshua  Wurman 

Program  stops  if  there  is  an  error 
opening  the  file 


TYPE: 


SUBROUTINE 


NAME: 


T  BHSEG 


PURPOSE: 


DESCRIPTION: 


Closes  the  current  segment  and  opens  the  next  higher  one 

Closes  the  segment  that  is  currently  open  and  opens  the 
one  that  is  next  higher  in  number. 


CALLING  SEQUENCE:  CALL  T  BHSEG 


INPUT: 


OUTPUT: 


ACCESS: 


Calls  T_OUT  to  send  appropriate  sequence  to  terminal 
The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


METHOD: 


Sends  the  "begin-next-higher-segment"  command  to 
the  terminal. 


LANGUAGE : 


VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 
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TYPE:  SUBROUTINE 

NAME:  T_BSEG 

PURPOSE:  Opens  a  specified  segment 

DESCRIPTION:  Opens  the  segment  specified  in  the  calling  argument 

CALLING  SEQUENCE:  CALL  T_BSEG( SEG_NUMBER ) 

SEG_NUMBER :  Integer  indicating  which  segment  number 

is  to  be  opened 

INPUT:  none 

OUTPUT:  Calls  T  OUT  and  T_INCOD  to  send  appropriate  sequence  to 

terminaT 

ACCESS:  The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  "begin  segment"  command  to  terminal  with  appropriate 

number  code  for  the  segment  number  by  calling  T_OUT  and 
T_INCOD 

LANGUAGE:  VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 
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TYPE: 

NAME: 

PURPOSE: 
DESCRIPTION: 

CALLING  SEQUENCE: 
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SUBROUTINE 

T_COLM 

Changes  an  entry  in  the  color  map  of  the  terminal 

Sets  the  hue,  lightness  and  saturation  of  a  specified 
color  number  to  the  specified  values 

CALL  T_COLM<  COL_NUM,  COL_HUE ,  COL_LIGHT,  COL_SAT ) 

COL_NUM :  Integer  containing  the  number  of  the 

color  to  be  changed 

COL_HUE :  Integers  containing  the  hue,  lightness, 

COL_LIGHT:  and  saturation  to  be  associated  with 
COL  SAT:  the  color  number 


L 

w 

•".y, 

'•A 

l-  , 

>/• 

.v 


f: 


I 


INPUT: 

OUTPUT: 

ACCESS : 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS: 
METHOD: 


none 

Calls  T_QUT  and  T_INCOD  to  send  appropriate  sequences 
to  the  terminal 

The  calling  program  must  be  linked  to  LIBT:TRLIB .OLB 
none 

The  color  specifying  mode  is  changed  to  HLS. 
none 

T_OUT  and  T_INCOD  are  called  to  send  appropriate 
sequences  to  the  terminal 


LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created 


1984  by  Joshua  Wurman 
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TYPE: 


SUBROUTINE 


NAME: 


T  CONTOUR 


PURPOSE:  To  contour  filled  data  arrays 

DESCRIPTION:  This  routine  is  a  powerful  color  contouring  routine. 

The  caller  has  extensive  control  over  the  contour 
output.  Most  of  the  parameters  that  are  passed  to 
this  routine  are  contained  in  a  control  file  described 
below . 


CALLING  SEQUENCE:  CALL  T  CONTOUR  (  FIRST  SEGMENT  ,  X_DIMENSION  , 

Y  DIMENSION  ,  EXIT  STATUS  ) 


FIRST_SEGMENT:  Integer  containing  the  number 

of  the  first  segment  to  be 
used  in  the  plot  This 
segment  contains  the  contours. 
The  next  higher  numbered  segment 
contains  the  extremum  labels,  if 
any. 


X_DIMENSION :  Integers  containing  the  dimensions 

Y_DIMENSION :  of  the  array  to  be  contoured 


EXIT_STATUS :  Integer  that  will  contain  a  one 

if  this  routine  exits  sucessfully 
or  a  minus  one  if  there  is  an 
error  exit 


C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


In  addition,  a  subroutine,  T_CONTOUR_INOUT,  should  be 
linked  to  the  program.  This  routine  is  called  to  allow 
for  boundary  criteria  to  specified.  A  sample  routine 
is  shown  below.  This  sample  will  always  return  a 
.FALSE,  which  has  no  effect  on  TCONTOUR.  If  a  .TRUE, 
is  returned,  than  contours  will  not  be  drawn  in  the 
grid  point  specified. 

Sample  T_CONTOUR_lNOUT  that  always  returns  an  in  bounds  indication 
SUBROUTINE  T_CONTOUR_INOUT  (  RI  ,  RJ  ,  OUT  ) 

RI,  RJ  are  four  byte  floating  point  numbers  which  contain  a  grid 
point  location  that  corresponds  to  data  gridpoint 
( RI*1 ,RJ  +  1 ) 

OUT  is  a  one  byte  logical  value  which  should  be  .TRUE,  for 

out  of  bounds  points  and  .FALSE,  for  in  bounds  points. 

LOGICAL  OUT 
OUT- . FALSE . 

This  block  of  code  would  leave  a  blank  space  for  a  label 

IF  ( RI . LT . 30 . AND. RI . GT . 20 . AND. RJ . LT. 30 .AND . RJ . GT . 20 ) 

1  THEN 

OUT- . TRUE . 
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ELSE 

OUT-. FALSE. 
END  IF 

RETURN 

END 


INPUT:  Most  parameters  for  the  plot  are  read  from  the  file 

with  the  logical  name  CONTOURCTL  which  should  be  defined 
prior  to  calling  this  routine.  This  can  be  done  with 
a  command  like,  DEFINE  CONTOURCTL  CONTROL . DAT. 

The  file  should  have  carriage  return  record  attributes 
(which  is  what  EDT  creates).  All  the  data  in  the  file 
(except  for  one  number)  has  a  format  of  15,  F11.4, 
or  A1 .  All  data,  except  for  the  arrayed  numbers,  begin 
in  the  fourteenth  column.  The  first  two  records  in  the 
file  are  ignored  and  can  be  used  for  labelling, 
formatting,  etc. 

An  annotated  copy  of  a  sample  control  file  follows. 

Note  that  any  annotation  line  that  begins  with  a  ! 
should  not  actually  appear  in  the  file.  Only  the 
numbered  lines  1-39  should  appear  in  a  usable  control 
f  ile . 

f 

I 

IThis  file  is  a  sample  control  file  for  T_CONTOUR 
2  5678901234567890  15  F11.4  A1 

3 MARK  +0000  !Only  used  for  debugging:  places  marks  on  conts 

4IBW  +0001  IShould  be  one:  in  future  will  disable  segments... 

5MESH  +0004  isub-grid  scale  for  smoothing  (1-9)  4  is  good 

1  Iconsumes  program  space:  see  restrictions 

6 LOG FAC  +0000  !Base  ten  logarithmic  factor  applied  to  data 

7NNC16  +0004  iMaximum  of  contours  that  can  be  plotted/16 

!  iconsumes  program  space:  see  restrictions 

8CLABFRQ  +0002  iEvery  CLABFRQ  contour  will  be  labelled 

9CINT  +00200.0000  'Contour  interval:  if  neg  then  zero  cont  omitted 

10ODDMAX  +04000.0000  iOnly  every  other  cont  over  ODDMAX  plotted 

! Ignored  if  ODDMAX  is  zero 

11CONLOW  -00500.0000  !The  lowest  contour  that  can  be  plotted 

12CONHIGH  +04000.0000  !The  highest  contour  that  can  be  plotted 

1 3 FLAT  +00000.0000  iFlat  region  contour  supressing  param  (0. 0-1.0) 

!  iif  zero  then  no  supression 

!  iif  one  then  most  contours  are  supressed 

14HILOTHR  +00050.0000  iOnly  extrmemums  that  are  HILOTHR  different 
!  ! than  the  nearest  contour  value  are  plotted 

15BYTEL  L  '.Character  plotted  at  minumums 

16BYTEH  H  iCharacter  plotted  at  raaximums 

17HTCONTL  +00020.0000  iHeight  of  contour  labels 

18HTHILOL  +00020.0000  IHeight  of  extremum  value  labels 

19HTBYTEL  +00020.0000  iHeight  of  extremum  type  (max,  min)  labels 

19 . 5NDCONT  +0000  INumber  of  digits  after  decimal  in  cont  labels 

!Set  to  +0360  for  wind  dir  format  (000-360) 
20NDHILO  +0000  iNumber  of  digits  after  dec  in  extremum  labels 

!Set  to  +0360  for  wind  dir  format  (000-360) 
21NEXTCOL  +0015  iColor  of  extremum  value  labels 
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22NHILOCOL  +0015  [Color  of  extremum  type  (max,  min)  labels 

23NLASCOL  +0015  [Unused 

24IPRECLB  +0002  [Precision  of  text  used  in  labeling:  usu  two 

25IBEGSEG  +0003  [Unused 

26EPS  .0000177  !A  small  uncommon  number:  Note  format 

!  '.Used  to  adjust  contours  slightly 

27MAXERRS  +0250  [Max  num  of  contouring  errors  before  error  exit 

I 

!The  CONT  array  below  contains  thirty  contour  level  thresholds  at  which 
[line  color  and  styles  can  be  changed  according  to  the  STYL  and  COLR 
[arrays.  Thus,  in  this  example,  the  2800  contour  will  use  the  25th  value 
tin  the  STYL  and  COLR  arrays  to  choose  line  style  and  color 
[This  array  must  be  arranged  in  ascending  order 

28  CONTI  -00100.0000  +00000.0000  +00050.0000  +00100.0000  +00150.0000 

29  CONT2  +00200.0000  +00250.0000  +00300.0000  +00350.0000  +00400.0000 

30  CONT3  +00450.0000  +00500.0000  +00800.0000  +01000.0000  +01200.0000 

31  CONT4  +01400.0000  +01600.0000  +01800.0000  +02000.0000  +02200.0000 

32  CONT5  +02800.0000  +03000.0000  +03200.0000  +03400.0000  +03600.0000 

33  CONT6  +03800.0000  +04000.0000  +04200.0000  +04400.0000  +04600.0000 

!The  STYL  and  COLR  arrays  correspond  to  the  CONT  values 

[Thus  the  contours  between  the  nth  and  n+lth  CONT  values  are  drawn  with 
I  the  nth  color  and  style  (The  2800  contour  would  be  in  style-0 , color-35 ) 

34  STYL1  +0001  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0001  +0001 

35  STYL2  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0000 

36  STYL3  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0000  +0000 

37  COLRl  +0021  +0022  +0023  +0024  +0025  +0026  +0007  +0028  +0029  +0030 

38  COLR2  +0031  +0032  +0033  +0034  +0035  +0036  +0037  +0038  +0039  +0040 

39  COLR3  +0041  +0042  +0043  +0044  +0045  +0046  +0047  +0048  +0049  +0050 

I 

!  End  of  control  file 

I 

OUTPUT:  T_CONTOUR  produces  a  contour  plot  in  the  graphics 

area  of  the  screen  and  messages  about  the  plot  status 
in  the  dialog  area 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TRLXB . OLB 

COMMON  BLOCKS:  /T_CONTOUR_SCREEN/  Contains  4  integers.  The  first  two  are 

the  x,y  location  of  the  lower  left  hand 
corner  of  the  plot.  The  next  two 
numbers  are  the  width  and  height  of  the 
plot 

/T_CONTOUR_FI ELD/  The  data  array  to  be  contoured  is 

passed  in  this  block.  This  block  must 
contain  ( NX+2 ) * ( NY+2 )  four  byte 
floating  point  numbers.  This  is 
for  extrapolation  beyond  the  data 
boundaries  that  is  performed.  The  data 
should  be  sent  in  a  contiguous  form  with 
no  gaps.  It  should  not  be  centered  in 
the  array.  It  is  recommended  that  it  be 
passed  in  a  linear  array  with  extra 
space  at  the  end.  T_CONTOUR  will  take 
care  of  centering  in  the  array. 

SIDE  EFFECTS:  Program  execution  may  halt  if  passed  array  sizes  don't 

agree  with  the  passed  sizes  in  NX,  NY  and  NC16,  or  if 
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RESTRICTIONS : 


METHOD: 
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there  is  no  routine  T_CONTOUR  INOUT  linked  to  the  image. 

All  possible  types  of  errors  have  not  been  examined. 

While  there  is  some  error  checking,  passing  unreasonable 
values  in  the  control  file,  or  the  call  arguments  can 
cause  the  program  to  make  bad  plots  and  possibly  halt. 

Data  values  that  are  very  close  to  contour  values  will 
cause  occasional  errors  in  contouring. 

The  array  is  searched  for  contours  and  they  are  traced 
to  completion.  Data  values  are  sometimes  alterred  if  they 
are  very  near  contour  values  to  prevent  endless  spiraling 
of  contours.  A  bit  mask  of  contours  that  have  passed 
through  particular  gridpoints  is  used  to  prevent  redrawing 
of  contours.  Cubic  spline  interpolation  is  used  to 
calculate  a  subgrid  scale  in  order  to  create  smoother 
contours . 

Data  is  passed  through  common  block  /T_CONTOUR_FI ELD/ 
and  the  control  file  with  a  logical  name 
of  CONTOURTL  and  through  calling  arguments. 

Several  internal  subroutines,  entries  and  functions, 
T__CONTOUR_DRAW_I ,  T_CONTOUR_DRAW_C ,  T_CONTOUR_EXTRPL , 
TCONTOUREXTRPLFNC,  T_CONTOUR  INT_I ,  T_CONTOUR_INTNEW, 
T_CONTOUR_ I NTO L D ,  T__NUMCHAR  ,  an3  T  CONTOUR  SRCHDIR  , 
T_C_SET_IC,  T_C_SET_IG,  T_C_SET_SC,  T_C_SET_TC ,  and 
T_C_SET  CM  are  called  to  perform  contour  drawing 
extrapolation,  interpolation,  contour  building, 
formatting,  masking,  and  searching 

T_CONTOUR_INOUT  is  called  to  test  for  map  boundaries 


LANGUAGE: 


VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 

Modified 


1984  by  Joshua  Wurman 
from  old  version  at  MIT 

1985  by  Joshua  Wurman 
Extensive  modifications  to 
substitute  MACRO  routines 
for  low  level  functions 
enhance  speed  and  reliability 
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TYPE:  SUBROUTINE 

NAME:  T_CONT240 

PURPOSE:  To  contour  arrays  and  send  output  to  a  VT240 

emulating  a  Tektronix 

DESCRIPTION:  See  documentation  on  T_CONTOUR  for  further 

description 

CALLING  SEQUENCE:  CALL  T_CONT240  (  see  T_CONTOUR  for  arguments  ) 
METHOD:  Calls  T_LINE240  to  draw  lines 

LANGUAGE:  VAX-11  FORTRAN 

MODIFICATION  HISTORY:  Created  1985  by  Joshua  Wurman 
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TYPE:  SUBROUTINES,  ENTRIES,  FUNCTION 

NAflE:  T_CONTO'  \_DRAW  entries:  T_CONTOUR_DRAW_I 

T_CONTOUR_DRAW_C 

T_CONTOUR_EXTRPL  function:  T_CONTOUR_EXTRPL_FNC 

T_CONTOUR  INT  entries:  T_CONTOUR_INT_I 

T_CONTOUR_ I NTNEW 
T_CONTOUR_ INTOLD 

T_CONTOUR_SRCHDIR 

T_NUMCHR 

PURPOSE:  These  routines  are  called  by  T  CONTOUR  to 

plot  arrays.  It  is  unlikely  tKat  they 
would  ever  be  called  by  another  routine. 

See  the  source  code  for  documentation. 

They  are  included  in  the  T_CONTOUR  source  file. 

LANGUAGE:  VAX- 11  FORTRAN 


TYPE: 


SUBROUTINE,  ENTRIES 


NAME: 


PURPOSE: 


LANGUAGE : 


T_C_SET  entries:  T_C  SET_IC 

T_C~SET_IG 
T_C~ SET_SC 
T_C~SET_TC 

T_CISET_CM 

These  routines  are  called  by  T  CONTOUR  to  plot 
arrays.  It  is  unlikely  that  tKey  would  ever  be 
called  by  another  routine.  Documentation  is 
included  in  the  source  code.  They  are  contained 
in  the  file  TCONTMAC  source  code  file. 

VAX- 11  MACRO 


1 YPE : 


SUBROUTINE 


NAME :  T_DACHAR 

PURPOSE:  To  set  the  dialog  area  characters  per  line 

DESCRIPTION:  Sets  the  dialog  area  characters  per  line  to  the 

specified  value 

CALLING  SEQUENCE:  CALL  T_DACHAR(  CHAR_PER_LINE  ) 

CHAR_PER_LINE :  The  number  of  characters  per  line 

INPUT:  none 

OUTPUT:  Calls  T_OUT,  T  INCOD,  AND  T_DAVIS  send  appropriate 

sequences  to  tKe  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT: TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  Makes  the  dialog  area  visible 

RESTRICTIONS:  none 

METHOD:  T_OUT  and  T_INCOD  are  called  to  specify  the  characters 

per  line.  T_DAVIS  is  called  with  an  argument  of  1  in 
order  to  reset  the  dialog  area  and  make  the  changes 
effective . 

LANGUAGE:  VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 
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TYPE:  SUBROUTINE 

NAME:  T_DAIND 

PURPOSE:  Changes  the  color  of  the  text  and  background  in  the 

dialog  area 

DESCRIPTION:  Sets  the  foreground,  background  and  erase  indices 

of  the  dialog  area. 

CALLING  SEQUENCE:  CALL  T_DAIND(  FORE_COL,  BACK_COL,  ERASE_COL  ) 

FORE_COL:  Integer  containing  the  color  index 

of  the  text  in  the  dialog  area 

BACK_COL :  Integer  containing  the  color  index 

of  the  dialog  area  background 

ERASE_COL :  Integer  containing  the  color  index 

in  which  characters  are  erased  in  the 
dialog  area 

INPUT:  none 

OUTPUT:  Calls  T_OUT,  T  INCOD,  and  TDAVIS  to  send  appropriate 

sequences  to  tRe  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  Makes  the  dialog  area  visible 

RESTRICTIONS:  none 

METHOD:  Calls  T_OUT  and  T_INCOD  to  set  the  dialog  area  colors 

and  then  calls  T_DAIND  with  an  argument  of  1  to  reset 
the  dialog  area  and  make  the  changes  effective 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 


f 


Page  25 


TYPE: 


NAME: 


PURPOSE: 


DESCRIPTION: 


SUBROUTINE 


T  DALIN 


To  set  the  number  of  lines  in  the  dialog  area 

Sets  the  number  of  lines  in  the  dialog  area  to  a 
specified  value 


CALLING  SEQUENCE:  CALL  T  DAPOS (  NUMBER  OF  LINES  ) 


INPUT: 


OUTPUT: 


ACCESS : 


NUMBER_OF_LINES :  Integer  containing  the 

number  of  dialog  area  lines 


Calls  T_OUT,  T  INCOD,  and  T_DAVIS  send  appropriate 
sequences  to  tKe  terminal 

The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


COMMON  BLOCKS :  none 


SIDE  EFFECTS: 


RESTRICTIONS : 


METHOD: 


LANGUAGE : 


Makes  the  dialog  area  visible 


T  OUT  and  T_INCOD  are  called  to  specify  the  number  of 
dialog  area  lines.  T_DAVIS  is  called  with  an  argument 
of  1  in  order  to  reset  the  dialog  area  and  make  the 
changes  effective. 


VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 


TYPE: 


SUBROUTINE 


NAME:  T_DAPOS 

PURPOSE:  To  set  the  position  of  the  dialog  area  on  the  screen 

DESCRIPTION:  Sets  the  lower  left  hand  corner  of  the  dialog  area  to 

a  specified  location  in  screen  coordinates 

CALLING  SEQUENCE:  CALL  T_DAPOS (  X_POSIT,  Y_POSIT  ) 

X_POSIT:  Integers  containing  the  x  and  y  position, 

Y_POSIT:  in  screen  coordinates,  of  the  lower 

left  hand  corner  of  the  dialog  area 

INPUT:  none 

OUTPUT:  Calls  T_OUT,  T  XYCOD,  and  T_DAVIS  send  appropriate 

sequences  to  tKe  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  Makes  the  dialog  area  visible 

RESTRICTIONS:  none 

METHOD:  T  OUT  and  T_XYCOD  are  called  to  specify  the  position 

of  the  dialog  area.  T_DAVIS  is  called  with  an  argument 

of  1  in  order  to  reset  the  dialog  area  and  make  the 
changes  effective. 

LANGUAGE:  VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 


TYPE:  SUBROUTINE 

NAME:  T  DAVIS 


PURPOSE:  To  make  the  dialog  area  visible  or  invisible 

DESCRIPTION:  Sets  the  dialog  area  visibility  to  the  specified 

value 

CALLING  SEQUENCE:  CALL  T  DAVIS  (  VISIBILITY  ) 


VISIBILITY:  Integer  containing  a  1  to  set  the 

dialog  area  visible  or  a  0  to  set 
dialog  area  invisible 


INPUT:  none 

OUTPUT:  Calls  T_OUT ,  and  T_INCOD  to  send  appropriate  sequences 

to  the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


COMMON  BLOCKS :  none 

SIDE  EFFECTS:  If  the  dialog  area  is  made  visible,  all  pending  changes 

to  the  dialog  area  parameters  are  made  effective. 

RESTRICTIONS:  none 

METHOD:  T  OUT  and  T_INCOD  are  called  to  specify  the  number  of 

dialog  area  lines. 

LANGUAGE:  VAX- 11  FORTRAN 
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MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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SUBROUTINE 


T  END 


PURPOSE: 


DESCRIPTION: 


Terminates  plotting 

This  routine  sends  all  pending  output  to  the 
device  that  is  receiving  plots  and  then  either 
deassigns  the  I/O  channel  to  the  terminal  or 
closes  the  plot  file. 


CALLING  SEQUENCE:  CALL  T  END 


INPUT: 


OUTPUT: 


Calls  T_OUTNOW  to  cause  all  pending  output 
to  be  sent 


ACCESS: 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

/T_CONTOUR  CHAN/  which  is  initialized  in  T_BEG 

only  the  third  byte  is  used  by  this  subroutine 

If  an  error  occurs  during  the  deassignment  of  the 
I/O  channel,  program  execution  stops. 


METHOD: 


LANGUAGE : 


The  third  byte  in  /CHAN/  is  tested.  If  it  is  .TRUE., 
the  system  service  DASSGN  is  called  to  deassign  the 
I/O  channel  to  the  terminal.  If  it  is  .FALSE.,  then 
the  plot  file  is  closed  and  saved. 

VAX- 11  FORTRAN 


MODI FICIATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 
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TYPE:  SUBROUTINE 

NAME :  T_ES£G 

PURPOSE:  Closes  the  current  segment 

DESCRIPTION:  Closes  the  segment  that  is  currently  open  for  definition 

CALLING  SEQUENCE:  CALL  T_ESEG 

INPUT:  none 

OUTPUT:  Calls  T_OUT  to  send  appropriate  sequence  to  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS :  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  "close  segment"  command  to  the  terminal 

by  calling  T_OUT 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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TYPE:  SUBROUTINE 

NAME:  T_GBCLR 

PURPOSE:  Changes  the  screen  background  color 

DESCRIPTION:  Sets  the  graphics  background  color  to  the  specified  color 

CALLING  SEQUENCE:  CALL  T_GBCLR (  HUE  ,  LIGHTNESS  ,  SATURATION  ) 

INPUT:  none 

OUTPUT:  Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences  to 

the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  a  "change  background  color"  command  with  a  call 

to  TOUT  and  then  sends  the  three  color  parameters  with 
subsequent  calls  to  T_INCOD 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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T3* 


TYPE:  SUBROUTINE 

NAME:  T_ INCOD 

PURPOSE:  Sends  encoded  integers  to  the  terminal 

DESCRIPTION:  Encodes  an  integer  into  a  one  to  three  byte  sequence 

and  sends  the  code  to  the  terminal 

CALLING  SEQUENCE:  CALL  T_INCOD(  INTEGER  ) 

INTEGER:  Integer  containing  the  integer  to  be 

encoded  and  sent  to  the  terminal 

INPUT:  none 

OUTPUT:  Calls  T_OUT  times  to  send  appropriate 

sequences  to  the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  Only  integers  in  the  range  -32768  to  +32767  inclusive 

will  be  encoded  correctly  in  this  routine. 

METHOD:  INTEGER  is  encoded  according  the  the  rules  described 

in  the  Tektronix  4110  Series  Command  Reference  manual. 
Integers  with  magnitudes  less  than  16  are  sent  as  one 
byte;  integers  with  magnitudes  between  16  and  1023, 
inclusive,  are  sent  as  two  bytes;  integers  with  magnitudes 
greater  than  1023  are  sent  as  three  bytes.  T_OUT  is 
called  to  send  the  correct  sequence. 

LANGUAGE:  VAX- 11  MACRO 

MODIFICATION  HISTORY:  Created  7-Aug-1985  by  Joshua  Wurman 
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TYPEi 

NAME: 

PURPOSE: 

DESCRIPTION: 

CALLING  SEQUENCE 

INPUT: 

OUTPUT: 

ACCESS : 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS : 
METHOD: 

LANGUAGE : 


SUBROUTINE 

T_KSEG 

To  erase  segments  permanently 

Deletes  the  specified  segments  from  screen  memory,  making 
them  permanently  invisible  and  freeing  screen  memory  for 
future  segments 

CALL  T_KSEG  (  SEGMENT_NUMBER  ) 

SEGMENT_NUMBER :  Integer  containing  the  number  of 

the  segment  that  is  to  be  deleted. 
Note  that  if  a  -1  is  passed,  all 
segments  will  be  erased. 

none 

T_INCOD  and  T  OUT  are  called  to  send  appropriate  sequences 
to  the  terminal 

The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 

none 

none 

none 

Calls  T_OUT  and  T_INCOD  to  send  a  "kill  segment"  command 
to  the  terminal 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 


TYPE: 


SUBROUTINE 


NAME :  T_LCHAR 

PURPOSE:  To  make  dialog  area  text  small 

DESCRIPTION:  Sets  the  alpha  text  writing  mode  to  small 

CALLING  SEQUENCE:  CALL  T_LCHAR 

INPUT:  none 

OUTPUT:  Calls  T  OUT  and  T  DAVIS  to  send  appropriate  sequence  to 

terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIST : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  Makes  the  dialog  area  visible 

Empties  buffer  of  all  pending  plot  output  • 

RESTRICTIONS:  none 

METHOD:  Calls  T_OUT  with  a  second  parameter  of  -2  in  order 

to  send  a  two  character  sequence  to  the  terminal 
immediately.  T_DAVIS  is  called  with  an  argument  of 
one  in  order  to  cause  an  immediate  effect  on  the  text 
size . 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 

Modified  9-Mar-1985  by  Joshua  Wurman 
sends  sequence  through  T  OUT  with  a 
negative  length  for  immediate  output 
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NAME  : 


PURPOSE 


DESCRIPTION : 


subs : ut: ne 


T  LINEM 


To  draw  a  line  on  the  terminal 

Connects  a  sequence  of  points,  specified  with 
(x,yi  pairs,  on  the  terminal 


CALLING  SEQUENCE:  CALL  TLINE  (  NUMBER_OF_POINTS  ,  XARRAY  ,  Y_ ARRAY  ) 

NUMBER_OF_POINTS :  Integer  containing  the  number 

of  points  to  be  connected 

XARRAY:  Integer  arrays  containing  the  x  and  y 

Y_ARRAY :  coordinates  of  the  points  to  be  connected 
The  points  should  be  in  one  to  one 
cor  respondence 


INPUT: 


OUTPUT: 


ACCESS: 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


METHOD: 


Calls  T_OUT  to  send  appropriate  sequences  to  the  terminal 
The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


Program  execution  may  halt  if  an  attempt  is  made  to 
connect  more  than  1000  points  in  one  call  to  this  routine. 

The  terminal  is  left  in  alpha  mode. 

The  maximum  number  of  points  that  can  be  connected  during 
one  call  to  this  routine  is  1000.  This  limit  is  arbitrary 
and  has  been  chosen  to  balance  utility  and  use  of  space. 

Since  the  number  of  characters  that  can  be  sent  in  one 
output  request  is  limited  by  factors  that  vary  from 
machine  to  machine  and  from  time  to  time,  this  routine 
sends  a  series  of  separate  line  draw  requests.  The  number 
of  requests  is  dependent  on  the  maximum  number  of 
characters  that  can  be  sent  at  one  time  and  the  number  of 
points  to  be  connected.  Currently  the  former  quantity  is 
explicitly  set  by  a  parameter  statement  in  the  routine. 

To  formulate  each  line  draw  request,  the  routine  puts  an 
"enter  vector  mode"  request  at  the  beginning  of  a  buffer. 
Then  it  loops  through  the  points,  encoding  them  in  a  two 
to  five  byte  format  according  to  the  conventions  specified 
in  the  Tektronix  4110  Command  Reference  guide,  and  adds 
the  codes  to  the  buffer.  (The  variable  length  coding 
takes  advantage  of  the  fact  that,  if  the  highest  or  lowest 
order  bits  of  the  location  of  a  point  just  drawn  are  the 
same  as  those  of  the  current  point,  then  those  higher  o. 
lower  order  bits  dont  have  to  be  sent  for  the  current 
point.)  This  continues  until  the  points  are  exhausted  or 
the  buffer  reaches  the  maximum  length  that  can  be  sent 
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with  one  output  request. 


At  that  time  an  "enter  vector 
mode"  request  is  added  to  the  buffer  and  T_OUT  is  called 
to  send  the  buffer  to  the  terminal.  If  more  points  remain 
then  the  process  is  repeated  as  necessary. 


LANGUAGE : 


VAX- 11  MACRO 


MODIFICATION  HISTORY: 


Created 


1985  by  Joshua  Wurman 
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TYPE: 


PURPOSE: 


SUBROUTINE 


T  LNIND 


To  change  line  color 


DESCRIPTION:  Sets  the  color  in  which  future  lines  will  be  drawn 

Does  not  affect  lines  already  on  the  screen  or  in 
memory 

CALLING  SEQUENCE:  CALL  T_LNIND  (  LINE_COLOR  ) 

LINE_COLOR:  Integer  containing  the  line  drawing 

color 

INPUT:  none 


OUTPUT: 


ACCESS : 


Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences 
to  the  terminal 

The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 


RESTRICTIONS:  none 


METHOD; 


LANGUAGE : 


Sends  a  "set  line  index"  command  with  a  call  to  TOUT 
and  the  specified  line  drawing  color  with  a  call  to 
T  INCOD 


VAX- 11  FORTRAN 


MODIFICATION  HISTORY:  Created 


1984  by  Joshua  Wurman 
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TYPE:  SUBROUTINE 

NAME:  T_LNSTY 

PURPOSE:  To  change  line  drawing  style 

DESCRIPTION:  Sets  the  style  in  which  future  lines  will  be  drawn 

Does  not  affect  lines  already  on  the  screen  or  in 
memory 

CALLING  SEQUENCE:  CALL  T_LNIND  (  LINE_STYLE  ) 

LINE_STYLE :  Integer  containing  the  line  drawing 

style 

INPUT:  none 

OUTPUT:  Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences 

to  the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  a  "set  line  style"  command  with  a  call  to  TOUT 

and  the  specified  line  drawing  style  with  a  call  to 
T_INCOD 

LANGUAGE:  VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 
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TYPE: 

NAME ; 

PURPOSE: 

DESCRIPTION: 

CALLING  SEQUENCE 


INPUT: 

OUTPUT: 

ACCESS: 

COMMON  BLOCKS: 
SIDE  EFFECTS: 

RESTRICTIONS : 
METHOD: 


LANGUAGE : 


SUBROUTINE 


T  MARK 


To  plot  symbols 

Plots  a  specified  number  of  markers  in  specified  colors 
and  locations 


CALL  T_MARK  (  X_ARRAY  ,  Y_ARRAY  ,  NUMBER  ,  TYPE  ,  COLOR  ) 

X_ARRAY:  Integer  arrays  containing  the  x,y  locations 

YARRAY :  of  each  symbol  to  be  plotted 

NUMBER:  Integer  containing  the  number  of  symbols  to 

be  plotted 


TYPE:  Integer  containing  the  number  code  for  the 

type  of  symbol  to  be  plotted 

COLOR:  Integer  containing  the  color  in  which  the 

symbols  are  to  be  plotted 


none 

Calls  T_OUT,  T  LNIND,  and  T_XYCOD  to  send  appropriate 
sequences  to  tKe  terminal 

The  calling  program  oust  be  linked  to  LIBT.-TKLIB.OLB 
none 

Changes  the  line  drawing  color  to  the  color  specified 
for  the  plotted  markers. 

The  terminal  is  left  in  alpha  mode. 

none 

This  routine  first  sets  the  current  marker  plotting  type 
with  a  calls  to  T_OUT  and  T_INCOD.  Then  the  color  of 
the  markers  is  set  with  a  call  to  T_LNIND  which,  in 
addition  to  setting  the  line  color,  sets  the  marker  color. 
Then  the  terminal  is  sent  into  marker  plotting  mode  with 
a  call  to  T_MMODE.  Each  x,y  location  passed  in  the 
X  LOCATION  and  Y  LOCATION  arrays  is  encoded  and  sent  to 
tHe  terminal  witK  calls  to  T_XYCOD .  Finally,  the 
terminal  is  set  to  alpha  mode  with  a  call  to  T_OUT. 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created  1984  by  Joshua  Wurman 

Modified  7-Aug-1985  by  Joshua  Wurman 
calls  T  MMODE  to  enter  marker  mode 
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TYPE: 


PURPOSE: 


DESCRIPTION: 


SUBROUTINE 


T  MMODE 


To  set  a  Tektronix  terminal  to  marker  mode 

This  subroutine  will  set  a  Tektronix  terminal  to 
marker  mode.  The  terminal  mode  is  changed  immediately 


CALLING  SEQUENCE:  CALL  T  MMODE 


INPUT: 


OUTPUT: 


ACCESS  : 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


METHOD: 


LANGUAGE : 


Calls  T_OUT  to  send  appropriate  sequence  to  terminal 
The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 


All  pending  plotting  output  being  stored  by  T_OUT 
will  be  sent  to  the  terminal. 


An  ASCII  28  is  sent  to  the  terminal  with  a  call  to 
T_OUT.  The  output  is  forced  to  be  immediate  by  using 
a  negative  output  length  specifier. 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY:  Created  7-Aug-1985  by  Joshua  Wurman 


TYPE: 


SUBROUTINE 


NAME :  T_NUMCHR 

PURPOSE:  Called  by  T_CONTOUR  and  T_AXES  to  plot  arrays  and 

draw  axes.  It  encodes  numbers  into  character  format 

It  has  not  been  tested  outside  of  the  limited  use 

in  the  T_COUNTOUR  and  T  AXES  calls  and  is  thus  not 
documented  here.  See  tEe  T_CONTOUR  source  code  for 
further  documentation. 

LANGUAGE:  VAX- 11  FORTRAN 


TYPE: 


SUBROUTINE 


NAME :  T_MOVE 

PURPOSE:  To  move  the  cursor  without  drawing  a  line 

DESCRIPTION:  Moves  the  beam  location  to  the  specified  position 

in  a  "pen  up"  mode 

CALLING  SEQUENCE:  CALL  T_MOVE  (  X_LOCATION  ,  Y_LOCATION  ) 

X_LOCATION:  Integers  containing  x,y  location 

Y_LOCATION:  of  the  target  location 

INPUT:  none 

OUTPUT:  Calls  T_OUT  and  T_XYCOD  to  send  appropriate  sequences  to 

the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS :  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  an  explicit  "move"  command  to  the  terminal  with 

calls  to  T_OUT  and  T_XYCOD 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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SUBROUTINE 


PURPOSE: 


To  send  output 


DESCRIPTION: 


Sends  output  to  the  terminal  or  to  the  plot  file 


CALLING  SEQUENCE:  CALL  T  OG  (  BYTES  OF  OUTPUT  ) 


INPUT: 


BYTES_OF_OUTPUT :  Integer  containing  the  number 

of  bytes  to  be  sent 


OUTPUT: 


ACCESS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


METHOD: 


LANGUAGE : 


Sends  plot  data  to  the  terminal  or  to  a  file 

The  calling  program  must  be  linked  to  LIBT: TKLIB .OLB 


COMMON  BLOCKS:  /T_COMMON_BUF/  contains  the  output  buffer 

/TCOMMONCHAN/  contains  a  two  byte  integer  which 
contains  either  the  channel  number  assigned  to  the 
terminal  or  a  50  which  is  the  logical  unit  number 
associated  with  the  file  that  is  opened.  A  third  byte 
contains  either  a  .TRUE,  if  an  I/O  channel  was  opened 
to  the  terminal  or  a  .FALSE,  if  a  file  was  opened. 


If  an  error  occurs  during  the  QIO  to  the  terminal, 
program  execution  will  halt 


If  the  integer  in  /T_CONTOUR  CHAN/  is  .TRUE,  then 
a  QIO  is  sent  to  the  terminal  to  write  the  buffer 
in  /T_CONTOUR_BUF/,  otherwise  the  buffer  is  written 
to  the  file  using  a  write  statement. 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created  1984  by  Joshua  Wurman 

Modified  1985  by  Joshua  Wurman 

— writes  files  with  80  byte  records  if 
PLOTIO  is  pointed  to  a  file--but,  this 
option  is  not  debugged  yet 
--renamed  common  blocks 
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TYPE: 


SUBROUTINE 


NAME :  T_OUT 

PURPOSE:  To  send  output 

DESCRIPTION:  T_OUT  decides  whether  to  add  plot  output  to  a  buffer, 

or  to  send  it  output  to  a  device.  The  decision  is  based 
on  several  factors: 

— If  the  output  device  is  the  user’s  terminal,  then  all 
output  is  sent  immediately. 

— If  the  output  length  is  passed  as  a  negative  value,  all 
current  and  stored  output  is  sent  immediately 
— If  the  output  length  is  passed  as  a  zero,  all  data 
currently  in  the  buffer  is  sent  immediately 
— If  the  buffer  is  full,  then  the  output  is  sent 
immediately. 

— Otherwise,  the  output  is  appended  to  the  buffer. 

CALLING  SEQUENCE:  CALL  T_OUT  (  OUTPUT  ,  OUTPUT_LENGTH  ) 

OUTPUT:  Character  variable  containing  the 

output  to  be  sent 

OUTPUT_LENGTH :  Integer  containing  : 

— the  number  of  characters  to  be 
if  buffered  output  allowed 
— the  negative  of  the  number  of 
characters  to  be  output  if  all 
current  and  pending  output  is  to 
be  sent 

— zero  if  all  pending  output  is  to 
be  sent 

INPUT:  none 

OUTPUT:  Calls  T_OG  to  send  output  if  output  is  to  be  sent 

ACCESS:  The  calling  program  must  be  linked  to  LIBT:TKLlB.OLB 

COMMON  BLOCKS:  /T  COMMON_BUF/  contains  the  output  buffer  and  is  shared 

with  T_OG 

/T__COMMON_CHAN/  contains  a  two  byte  integer  which  is 

ignored  by  T_OUT  and  a  third  byte  which  is  .TRUE, 
if  an  I/O  channel  is  opened  to  the  terminal  or 
a  .FALSE,  if  a  file  is  open 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  If  the  output  device  is  the  terminal  (ITT-. TRUE.)  then 

the  output  buffer  is  filled  with  the  input  characters 
and  T  OG  is  called. 
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Otherwise,  If  the  output  length  is  passed  as  zero  then  T_OG  is  called 
to  send  the  pending  buffer 

Otherwise,  If  the  output  length  is  negative,  then  the  output  is 

appended  to  the  buffer  and  T  OG  is  called  to  send  it, 
unless  the  append  action  would  overflow  the  buffer, 
in  which  case  T_OG  is  called  to  send  the  pending  buffer 
and  again  after  the  current  output  is  placed  in  the 
buffer 

Otherwise,  the  output  is  appended  to  the  buffer, 

unless  the  append  action  would  overflow  the  buffer, 
in  which  case  T_OG  is  called  to  send  the  pending  buffer 
and  the  current  output  is  placed  at  the  beginning  of 
the  buffer 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 

Modified  1985  by  Joshua  Wurman 

— calls  T_OG  instead  of  old  T_0 
— renamed"common  blocks 
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TYPE: 

NAME: 

PURPOSE: 

DESCRIPTION: 

CALLING  SEQUENCE 
INPUT: 

OUTPUT: 

ACCESS: 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS : 
METHOD: 

LANGUAGE : 


SUBROUTINE 

T_OUTNOW 

To  send  all  pending  output 

This  is  the  routine  that  progammers  should  use  to  finish 
plots  etc.  It  causes  the  pending  output  buffer  to  be 
sent  to  the  output  device.  If  all  plotting  is  to  be 
ended,  T_END  should  be  called  instead. 

CALL  T_OUTNOW 

none 

Calls  T_OUT  to  send  all  pending  output 

The  calling  program  must  be  linked  to  LIBT:TKLIB .OLB 

none 

none 

none 

Calls  T_OUT  with  a  length  argument  of  zero  to  force  all 
pending  output 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created 


1984  by  Joshua  Wurman 


TYPE: 


SUBROUTINE 


NAME:  T_PANEL 

PURPOSE:  Draws  a  filled  polygon 

DESCRIPTION:  Draws  a  panel  with  the  specified  boundries  and  filling 

color,  with  or  without  drawing  the  panel  boundary 

CALLING  SEQUENCE:  CALL  T_PANEL  (  X  ARRAY  ,  Y_ARRAY  ,  NUMB_OF_VERTICES  , 

F I LLING_COLOR  ,  BOUNDARY_DRAW_FLAG  ) 

X_ARRAY :  Integer  arrays  containing  the  x,y  locations 

Y_ARRAY :  of  the  vertices  of  the  panel  to  be  drawn. 

Note:  the  first  vertex  should  be  repeated 

in  the  last  x,y  pair 

NUMB_OF_VERTICES :  Integer  containing  the  number  of 

points  sent  in  X_ARRAY  and  Y_ARRAY 
This  should  be  one  more  than  the 
number  of  vertices  in  the  polygon 

FI LLING_COLOR :  Integer  containing  a  code  to  specify 
how  the  polygon  is  to  be  filled 
A  negative  number  causes  the  panel  to 
be  filled  with  the  color 
corresponding  to  the  absolute  value 
of  the  specified  filling  color.  A 
positive  number  causes  the  panel  to 
be  filled  with  a  pre-defined  pattern 

BOUNDARY_DRAW_FLAG :  Integer  containing  a  one  if 

the  boundary  of  the  polygon  is 
to  be  drawn  and  a  zero 
otherwise 

INPUT:  none 

OUTPUT:  Calls  T_PNCLR,  T_VECT,  T_OUT,  T_XYCOD,  T_INCOD,  and 

T_ALPHA  to  send  appropriate  sequences  to  the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  The  terminal  is  left  in  alpha  mode 

RESTRICTIONS:  none 

METHOD:  T_PNCLR  is  called  to  set  the  panel  filling  color.  T_VECT 

is  called  to  set  the  terminal  to  vector  mode.  T_OUT, 

T  XYCOD,  and  T_INCOD  are  called  to  begin  the  panel.  All 
tKe  passed  points  are  sent  to  T_XYCOD  to  be  sent  to  the 
terminal.  T_OUT  is  called  to  end  the  panel  and  T_ALPHA 
is  called  to  set  the  terminal  to  alpha  mode. 

LANGUAGE:  VAX- 11  FORTRAN 
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TYPE:  SUBROUTINE 

NAME:  T  PNCLR 


PURPOSE:  To  set  the  panel  filling  color 

DESCRIPTION:  Sets  the  panel  filling  color  or  style 

CALLING  SEQUENCE:  CALL  T_PNC  It  (  COLOR  ) 

COLOR:  Integer  containinig  the  filling  color  or 

style  of  future  panels 

INPUT:  none 

OUTPUT:  Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences  to 

the  terminal 


ACCESS : 

The  calling  program 

must  be 

linked 

to  LIBT : TKLIB 

.  OLB 

COMMON  BLOCKS: 

none 

SIDE  EFFECTS: 

none 

RESTRICTIONS : 

none 

METHOD: 

Calls  T  OUT  to  send  a  "set  fill 
terminal  and  then  calls  T_INC0D 

pattern"  command 
to  send  the  fill 

to  the 
pattern 

LANGUAGE : 

VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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TYPE:  SUBROUTINE 

NAME:  T_PREC 

PURPOSE:  To  enable  low  or  high  precision  text  writing  in  the 

graphics  area 

DESCRIPTION:  Sets  the  graphtext  precision  to  string  or  stroke 

precision 

CALLING  SEQUENCE:  CALL  T_PREC  (  PRECISION  ) 

PRECISION:  Integer  containing  a  one  if  string 

precision  is  desired  or  a  two  if 
stroke  precision  is  desired. 

INPUT:  none 

OUTPUT:  Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences 

to  the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Calls  T_TOUT  and  T_INCOD  to  send  a  "set  graphtext 

precision"  command  to  the  terminal  with  the  specified 
parameter 

LANGUAGE:  VAX- 11  FORTRAN 
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TYPE: 

NAME: 

PURPOSE: 

DESCRIPTION: 

CALLING  SEQUENCE 


INPUT: 

OUTPUT: 

ACCESS : 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS : 
METHOD: 

LANGUAGE : 


SUBROUTINE 

T_PRINT 

To  print  the  screen 

Causes  a  hardcopy  of  the  screen  to  be  produced  with 
either  a  positive  or  negative  background 

CALL  T_PRINT  (  BACKGROUND_CODE  ) 

BACKGROUND_CODE :  Integer  containing  a  zero  or  a 

one  if  a  normal  hardcopy  is  desired 
and  a  two  if  a  reversed  background 
copy  is  desired 


none 

Calls  T_OUT  and  T  INCOD  to  send  appropriate  sequences  to 
the  terminal  whicK,  in  turn  causes  a  hardcopy  to  be 
produced 

The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

none 

none 

none 

Sends  a  "hardcopy"  command  with  the  appropriate  parameter 
with  calls  to  T_0UT  and  T_INCOD 

VAX-11  FORTRAN 
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TYPE:  SUBROUTINE 

NAME:  T_PSEG 

PURPOSE:  To  move  objects  on  the  screen 

DESCRIPTION:  This  routine  will  move  a  specified  segment's  pivot 

point  to  the  specified  location. 

CALLING  SEQUENCE:  CALL  T_PSEG  (  SEGMENT_NUMBER  ,  X_LOCATION  ,  Y_LOCATION  ) 

SEGMENT_NUMBER :  Integer  containing  the  number  of  the 

segment  to  be  moved 

X_LOCATI ON :  Integers  containing  the  x,y  location 

Y_LOCATION :  to  which  the  segment  is  to  be  moved 

INPUT:  none 

OUTPUT:  Calls  T_OUT,  T  INCOD,  and  T_XYCOD  to  send  appropriate 

sequences  to  tKe  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS :  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  a  "set  segment  position"  command  to  the  terminal 

with  calls  to  T_OUT,  T_INCOD,  and  T_XYCOD 

LANGUAGE:  VAX-11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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METHOD: 


LANGUAGE : 
MODIFICATION 


This  routine  uses  a  scheme  that  closely  paralllels  that 
described  in  the  Tektronix  4110  Command  Reference  guide 
for  encoding  real  numbers.  The  real  number  is  broken  down 
into  a  base-two  integer  mantissa  and  exponent  and  then 
both  of  these  are  sent  to  the  terminal  with  calls  to 
T_INCOD . 

VAX- 11  FORTRAN 

HISTORY:  Created  1984  by  Joshua  Wurman 
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TYPE: 

NAME  : 

PURPOSE: 

DESCRIPTION; 


T_RFRSH 

Clears  the  screen 

This  routine  will  clear  the  screen  of  all  graphical 
objects  that  are  not  stored  in  segments 


CALLING  SEQUENCE:  CALL  T  RFRSH 


INPUT: 

OUTPUT: 

ACCESS : 

COMMON  BLOCKS; 
SIDE  EFFECTS: 
RESTRICTIONS  : 
METHOD; 

LANGUAGE : 


none 

Calls  T_QUT  and  T_INCOD  to  send  appropriate  sequences  to 
the  terminal 

The  calling  program  must  be  linked  to  LIBT: TKLIB . OLB 

none 

none 

none 

Calls  T  OUT  to  send  a  "renew  view"  command  to  the  terminal 
and  calls  T_INCOD  to  send  an  argument  of  zero 

VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 
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sends  an  argument  of  zero  to  specify 
the  current  view 
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TYPE: 

NAME: 

PURPOSE: 

DESCRIPTION: 
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SUBROUTINE 

T_ROT 

Sets  the  text  rotation  angle 

Sets  the  graphtext  rotation  angle  for  future  graphtext 
output 


CALLING  SEQUENCE:  CALL  T_ROT  (  ANGLE  ) 


INPUT: 

OUTPUT: 

ACCESS: 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS: 
METHOD : 


ANGLE:  Four  byte  floating  point  number  containing 

the  angle,  in  degrees,  that  future  graphtext 
should  be  rotated 

none 

Calls  T_OUT  and  T_RECOD  to  send  appropriate  sequences  to 
the  terminal 

The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 

none 

none 

none 

Calls  TOUT  to  send  a  "set  graphtext  rotation"  command 
and  T_R ECOD  to  send  the  rotation  angle 


LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created 
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NAME: 


PURPOSE: 


DESCRIPTION: 


SUBROUTINE 


T  SCHAR 


To  make  dialog  area  text  large 

Sets  the  alpha  text  writing  mode  to  large 


CALLING  SEQUENCE:  CALL  T  SCHAR 


INPUT: 


OUTPUT: 


ACCESS: 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


METHOD: 


LANGUAGE : 


Calls  T  OUT  and  T_D^VIS  to  send  appropriate  sequence  to 
terminal 

The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 


Makes  the  dialog  area  visible 

Empties  buffer  of  all  pending  plot  output 


Calls  T_OUT  with  a  second  parameter  of  -2  in  order 
to  send  a  two  character  sequence  to  the  terminal 
immediately.  T_DAVIS  is  called  with  an  argument  of 
one  in  order  to  cause  an  immediate  effect  on  the  text 


VAX- 11  FORTRAN 


MODIFICATION  HISTORY: 


Created  1984  by  Joshua  Wurman 

Modified  20-Mar-1985  by  Joshua  Wurman 

sends  sequence  through  T  OUT  with  a 
negative  length  for  immediate  output 


TYPE: 


SUBROUTINE 


PURPOSE: 


DESCRIPTION: 


T_STRING 

To  plot  strings  of  characters 

This  routine  will  plot  character  strings  of 
specified  height,  color,  rotation,  and  precision 
at  specified  locations. 


CALLING  SEQUENCE:  CALL  T_STRNG  (  X  LOCATION  ,  Y_LOCATION  ,  HEIGHT  , 

~CHARACTER_STRING  ,  ROTATION_ANGLE  , 
NUMBER_OF_CHAR  ,  PRECISION  ,  COLOR  ) 

X_LOCATION:  Integers  containing  the  x,y  location 

Y_LOCATION:  of  the  lower  left  corner  of  the  string 

HEIGHT:  Integers  containing  the  height  of  the 

printed  characters 

CHARACTER_STRING :  Character  variable  containing 

the  character  string 

ROTATION_ANGLE:  Four  byte  floating  point  number 

containing  the  angle  in  degrees 
that  the  string  is  to  be  rotated 

NUMBER_OF_CHAR:  Integer  containing  the  number  of 

characters  passed  in 
CHARACTEB_STRING 

PRECISION:  Integer  containing  a  one  for  string 

precision  characters  and  a  two  for  stroke 
precision  characters 

COLOR:  Integer  containing  the  color  index  of  the 

characters 

INPUT:  none 


OUTPUT: 


Calls  T_VECT,  T_MOVE,  T_PREC,  T_TSIZ,  T_ROT ,  T_TXCLR , 
T_OUT,  T_INCOD,  and  T_ALPHA  to  send  appropriate  sequences 
to  the  terminal 


ACCESS : 


The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS : 


Leaves  the  terminal  in  alpha  mode 


The  active  position  is  moved  to  the  specified  location 
with  a  call  to  T_MOVE,  the  text  attributes  are  set 
with  calls  to  T_PREC,  T_TSIZ,  T_ROT,  and  T_TXCLR ,  and 
then  the  character  string  is  sent  to  the  terminal  using 


METHOD: 
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LANGUAGE:  VAX- 11  FORTRAN 
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TYPE: 


SUBROUTINE 


NAME: 

T_TBCLR 

PURPOSE: 

To  set  the  string  precision  text  background  and  the 
color  in  dashed  line  gaps 

DESCRIPTION: 

This  will  set  the  background  that  appears  behind 
characters  sent  in  string  precision  mode.  It  will 
also  set  the  color  that  is  drawn  in  the  gaps  of  dashed 
lines. 

CALLING  SEQUENCE 

:  CALL  T  TBCLR  (  TEXT  BACKGROUND  COLOR  , 

DASHED_LINE_GAP_COLOR  ) 

TEXT_BACKGROUND_COLOR:  Integer  containing 

the  color  index  to  be 
displayed  behind  string 
precision  text 

DASHED_LINE_GAP_COLOR:  Integer  containing 

the  color  index  to  be 
displayed  in  the  gaps 
of  dashed  lines 

INPUT: 

none 

OUTPUT: 

Calls  T  OUT  and  T  INCOD  to  send  appropriate  sequences 
to  the  terminal 

ACCESS: 

The  calling  program  must  be  linked  to  LIBTsTKLIB .OLB 

COMMON  BLOCKS: 

none 

SIDE  EFFECTS: 

none 

RESTRICTIONS: 

none 

METHOD: 

This  sends  a  "set  background  indices"  command  with 
calls  to  T  OUT.  The  parameters  are  sent  with  calls 
to  T_INCOD . 

LANGUAGE : 

VAX- 11  FORTRAN 

MODIFICATION  HISTORY: 
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TYPE:  SUBROUTINE 

NAME:  T_TSEG 

PURPOSE:  To  move  and  modify  segments 

DESCRIPTION:  This  will  move,  rotate  and  scale  segments 

CALLING  SEQUENCE:  CALL  T_TSEG  (  SEGMENT_NUMBER  ,  X_SCALE  ,  Y_SCALE 

ROTATION_ANGLE  ,  X_LOCAT  ,  Y_LOCAT  ) 

SEGMENT_NUMBER :  Integer  containing  the  number 

the  segment  to  be  altered 

X_SCALE :  Four  byte  floating  point  numbers  containing 

Y_SCALE :  the  x  and  y  scaling  factors  Numbers 

greater  than  one  stretch  the  segment, 
numbers  less  one  compress  it. 

ROTAT I ON_AN G L E :  Four  byte  floating  poing  number 

containing  the  angle  through  which 
the  segment  is  to  be  rotated 

X_LOCAT :  Integers  containing  the  x  and  y  location 

Y_LOCAT:  to  which  the  pivot  point  of  the  segment 

is  to  be  moved 

INPUT:  none 

OUTPUT:  Calls  T  OUT,  TINCOD,  T_RECOD,  and  T  XYCOD  to  send 

appropriate  sequences  to  the  terminal 

ACCESS:  The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  none 

RESTRICTIONS:  none 

METHOD:  Sends  a  "set  segment  image  transform"  command  to  the 

terminal  will  calls  to  T_OUT,  T_INCOD,  T_RECOD,  and 
T_XYCOD 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  1984  by  Joshua  Wurman 
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TYPE: 


NAME: 


SUBROUTINE 


T  TSIZ 


PURPOSE: 


DESCRIPTION: 


To  set  the  gcaphtext  size 

Sets  the  graphtext  height,  width,  and  spacing  according 
to  a  passed  height  value 


CALLING  SEQUENCE:  CALL  T  TSIZ(  CHARACTER  HEIGHT  ) 


INPUT: 


OUTPUT: 


ACCESS : 


COMMON  BLOCKS: 


SIDE  EFFECTS: 


RESTRICTIONS: 


METHOD: 


LANGUAGE  : 


CHARACTER_HE I GHT :  Integer  containing  the  height 
of  future  graphtext  characters 
The  width  will  be  set  to  4/5 
of  the  height  and  the  spacing 
between  characters  will  be 
set  to  1/5  of  the  height. 


Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences 
to  the  terminal 

The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 


Calls  T_OUT  and  T_INCOD  to  send  a  "set  graphtext  size' 
command  with  parameters  of  4/5,  1,  and  1/5  of 
CHARACTER  HEIGHT 
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TYPE: 


NAJ1E: 


PURPOSE: 


T  TXCLR 


To  set  text  colors 


DESCRIPTION:  This  will  set  the  color  index  for  future  alphatext  and 

graphtext 

CALLING  SEQUENCE:  CALL  T_TXCLR  {  COLOR  ) 

COLOR:  Integer  containing  the  color  index  of  future 

text 


INPUT: 


OUTPUT: 


ACCESS: 


Calls  T_OUT  and  T_INCOD  to  send  appropriate  sequences  to 
the  terminal 

The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 


COMMON  BLOCKS:  none 


SIDE  EFFECTS:  none 


RESTRICTIONS:  none 


METHOD: 


LANGUAGE : 


Sends  a  "set  text  index"  command  with  calls  to  T_OUT 
and  T  INCOD 


VAX- 11  FORTRAN 
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TYPE: 

NAME: 

PURPOSE: 

DESCRIPTION: 


SUBROUTINE 

T_VECT 

To  set  the  terminal  to  vector  mode 

This  will  set  and  leave  the  terminal  in  vector  mode 


CALLING  SEQUENCE:  CALL  T  VECT 


INPUT: 

OUTPUT : 

ACCESS : 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS: 
METHOD : 


none 

Calls  T_OUT  to  send  appropriate  character  to  the  terminal 

The  calling  program  must  be  linked  to  LIBT : TKLIB . OLB 

none 

none 

none 


Sends  an  ASCII  29  (decimal)  to  the  terminal  with 
a  call  to  T  OUT 


LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created 
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TYPE: 

SUBROUTINE 

NAME: 

T_VSEG 

1  •  *  *  1  ' 

1 

s 

PURPOSE: 

To  make  segments  visible  and  invisible 

*  »/ 

i . 

DESCRIPTION: 

CALLING  SEQUENCE: 

This  will  set  a  segment's  visibility  to  on  or  off 

CALL  T  VSEG  (  SEGMENT_NUMBER  ,  VISIBILITY  ) 

f.  A* 

.‘>,j 

i 

SEGMENT  NUMBER:  Integer  containing  the  number  of 

t _ I 

the  segment  to  be  made  visible  or 

V  * 

v‘ 

invisible 

VISIBILITY:  Integer  containing  a  zero  if  the  segment 

n"  *. 

_* 

is  to  be  invisible  or  a  one  if  the 

i 

segment  is  to  be  visible 

-V 

s,* 

INPUT: 

none 

i  — a» 
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\ 

OUTPUT: 

Calls  T  OUT  and  T  INCOD  to  send  appropriate  sequences  to 

•• 

the  terminal 
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* 

ACCESS: 

The  calling  program  must  be  linked  to  LIBT:TKLIB.OLB 

.  "W  ■ 

,  J 

s. 

COMMON  BLOCKS: 

none 

y* 

,  w 

SIDE  EFFECTS: 

none 

*  •  «  • 

RESTRICTIONS: 

none 

i 

METHOD: 

Sends  a  "set  segment  visibility"  command  with  calls  to 

‘  V  , 

'  -4 

T  OUT  and  T  INCOD 
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TYPE: 

NAME: 

PURPOSE: 
DESCRIPTION: 
CALLING  SEQUENCE 

INPUT: 

OUTPUT: 

ACCESS: 

COMMON  BLOCKS: 
SIDE  EFFECTS: 
RESTRICTIONS : 
METHOD: 

LANGUAGE : 
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SUBROUTINE 

T_XYCOD 

To  send  a  location  to  the  terminal 

Sends  an  encoded  x,y  location  to  the  terminal 

CALL  T_XYCOD  (  X_LOCATION  ,  Y_LOCATION  ) 

X_LOCATION :  Integers  containing  the  x,y 

Y_LOCATION:  coordinates  of  a  point  to  be 

sent  to  the  terminal 


none 

Calls  T_OUT  to  send  the  encoded  location  to  the  terminal 

The  calling  program  must  be  linked  to  LIBT:TKLIB . OLB 

none 

none 

none 

This  routine  encodes  the  x,y  location  into  a  string  of 
five  ASCII  characters  according  to  the  rules  outlined 
in  the  Tektronix  4110  Command  Reference  guide  and  sends 
the  five  characters  with  T_OUT 

VAX- 11  MACRO 
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TYPE:  SUBROUTINE 

NAME:  T_AXES  entries:  T_AXES_GRAPH 

T_AXES_GXFRM 

PURPOSE:  To  draw  labelled  axes 

DESCRIPTION:  Subroutine  T  AXES  is  useful  for  plotting  a  rectangle 

with  labelle3  axes  to  surround  the  contour  map. 

It  can  also  be  used  to  plot  axes  for  drawing  graphs 
and  scatter  diagrams  etc. 

CALLING  SEQUENCE:  CALL  T_AXES  (  argument  list  shown  below  ) 

RX1  Minimum  X  value  -  left-hand  side  of  X  axis 

RX2  Maximum  X  value  -  right-hand  side 

RDX  Step  size  between  labelled  X  values 

XFMT  Format  string  to  use  for  X  values 

This  must  include  surrounding  parentheses, 
and  end  with  a  zero  byte  (i.e.,  it  is  an 
ASCII  zero  string) 

For  example  -  ' ( F4 . 2 ) '  or  '(12)' 

**  First  Special  Case  -  if  the  string  starts 
with  an  'L'  rather  than  '('  then  the 
numbers  RXl  etc.  are  treated  as  logs  to 
the  base  10,  and  10**RXl  etc.  are  plotted 
out  as  the  labels 

**  Second  Special  Case  -  if  the  string  is 
just  '(YM)’  then  RXl  must  be  a  first  year 
and  month  (e.g.,  8204)  and  RX2  must  be  a 
final  year  and  month  (e.g.,  8302).  The 
axis  will  be  labells  with  APR,  MAY,  etc. 
NTX  Number  of  ticks  in  X  per  labelled  value 

(If  NTX-1,  only  labelled  values  are  ticked) 
LDX  A  logical  variable  which  is  .TRUE,  if  the 
labelled  values  should  have  leading  zeroes 
plotted 

WIDTH  The  width  in  pixels 

of  the  base  of  the  rectangle  -  i.e.,  the 
distance  from  RXl  to  RX2 .  The  bottom  left 
corner  of  the  rectangle  will  not  be  at  the 
origin  -  it  will  be  shifted  in  and  up  an 
appropriate  distance  to  allow  for  the 
axis  labelling 

XLAB  Label  for  the  X  axis  -  an  ASCII  zero  string 

RYl  Minimum  Y  value  -  bottom  of  Y  axis 

RY2  Maximum  X  value  -  top  of  Y  axis 

RDY  Step  size  between  labelled  Y  values 
YFMT  Format  string  to  use  for  Y  values 

This  must  include  surrounding  parentheses, 
and  end  with  a  zero  byte  (i.e.,  it  is  an 
ASCII  zero  string) 

For  example  -  ' ( F 4 . 2 ) '  or  ’(12)' 

**  First  Special  Case  -  if  the  string  starts 
with  an  'L'  rather  than  '('  then  the 
numbers  RYl  etc.  are  treated  as  logs  to 
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the  base  10,  and  1Q**RY1  etc.  are  plotted 
out  as  the  labels 

NTY  Number  of  ticks  in  Y  per  labelled  value 

(If  NTY" 1 ,  only  labelled  values  are  ticked) 

LDY  A  logical  variable  which  is  .TRUE,  if  the 
labelled  values  should  have  leading  zeroes 
plotted 

HEIGHT  The  height  in  pixels 

of  the  rectangle  -  i.e.,  the  distance  from 
RY1  to  RY2. 

YLAB  Label  for  the  Y  axis  -  an  ASCII  zero  string 


CHHT  Height  (pixels)  of  the  characters  used 
for  the  axis  labels  and  numbers 
This  is  also  used  to  get  an  appropriate 
scale  for  the  ticks  etc. 

GRID  A  logical  variable  -  if  .TRUE.,  a  complete 

grid  is  drawn  at  the  X  and  Y  labelled  values 
TWOTIK  A  logical  variable  -  if  .TRUE.,  ticks  are 

put  on  all  4  sides  of  the  rectangle  rather  than 
just  the  bottom  (X)  and  left  (Y) 

BSTY  Axis  and  tick  line  style 

BCOL  Axis  and  tick  line  color 

XCOL  X  axis  label  color 

YCOL  Y  axis  label  color 

IBSEG  beginning  segment  number:  axes  and  labels 
are  placed  in  different  segments  IBSEG  and 


I BSEG+ 1 

IBW  controls  whether  segments  and  color  commands 
are  made.  If  IBW--1  then  no  segments  and 
colors  are  made.  This  can  be  used  for 
making  plots  on  black  and  white  terminals 
which  do  not  support  segment  memory. 


A  sample  call  to  T_AXES  to  simply  plot  X  and  Z  each  from  0  to 
50  in  steps  of  10,  with  10  ticks  per  label  (so  that  the  ticks 
are  spaced  one  unit  apart)  is: 


CALL  T_AXES(  0 . 0 , 5 0 . 0 , 1 0 . 0 , ' ( 1 2 ) ' , 1 0 , . FALSE . , 2 0 00 . , ' X ' , 

1  0.0, 50. 0,10.0, '(12)', 10,. FALSE. ,  2000 . , ' Y'  , 

2  20 . , . FALSE. , . TRUE. ,1,0, 1,1, 1,0) 


Note  that  the  numbers  labelling  the  axes  are  plotted  in  12  for¬ 
mat  and  do  not  have  leading  zeroes;  the  rectangle  is  actually 
a  2000  pixel  square;  the  character  height  is  0.15  inch  (a  pretty 
good  value);  a  grid  is  not  plotted,  but  ticks  are  put  on  all 
sides  of  the  box. 


T_AXES  has  an  entry  point  T_AXES_GXFRM  which  can  be  used  to 
transform  an  (X,Y)  value  in  the  ordinate/abscissa  space  to  (X,Y) 
plot  co-ordinates.  For  example,  CALL 

T_AXES^_GXFRM  (  RX1 ,  RYl ,  XBOT  ,  YLEFT  )  will  return  in  XBOT  the  plot 
co-ordinate  of  the  base  of  the  rectangle,  and  in  YLEFT  the  plot 
co-ordinate  of  the  left  of  the  triangle.  Clearly,  by  doing  a 
series  of  such  calls  for  one  can  obtain  points  to  be  joined  to 
draw  a  graph  within  the  rectangle.  There  is  also  an  entry  point 
T_AXES_GRAPH  (see  the  source  program  for  details). 
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In  the  special  case  of  logarithmic  values  in  X  or  Y,  the  input 
number  is  treated  as  a  log  value;  in  the  special  case  of  years 
and  months  in  X,  the  input  value  must  be  1  for  the  first  month 
(left-hand  side),  incremented  by  1  for  each  successive  month. 

INPUT:  none 

OUTPUT:  Calls  T_BSEG ,  T_ESEG,  T_STRNG,  and  T_LINEM  to 

create  output  on  the  terminal 

ACCESS:  The  calling  subroutine  must  be  linked  with  LIBT : TKLIB . OLB 

COMMON  BLOCKS:  none 

SIDE  EFFECTS:  Terminal  may  be  left  in  alpha  mode 

RESTRICTIONS:  none 

METHOD:  see  source  code 

LANGUAGE:  VAX- 11  FORTRAN 

MODIFICATION  HISTORY:  Created  in  antiquity  at  MIT  or  Australia 

Modified  1984  by  Joshua  Wurman 

modified  MIT  version  for  VAX  and  Tektronix 
and  colors  and  segments 


\i _ 


A  / 

a.V 

a.W 

■vv- 

->>• 

i-  i 


V.  <*»v 

«\>.v 


kL-‘.-v!L 


A'AA 


r m 

-:a& 

s-^\' 


s  t  s  m  ■  . 


